system("ls -p /data1/bsi/bioinf_int/s106381.borawork/data_HTHGU/NormSumSrc/TempForNaresh | grep '/' > /data1/bsi/bioinf_int/s106381.borawork/data_HTHGU/NormSumSrc/HTHGU_ProbesetSumm/bin/txt");
open(BUFF,"/data1/bsi/bioinf_int/s106381.borawork/data_HTHGU/NormSumSrc/HTHGU_ProbesetSumm/bin/txt");
#$line = <BUFF>;
while($line = <BUFF>)
{
	chomp $line;
	$line =~ s/\n//g;
	$line =~ s/\r//g;
	$line =~ s/\///g;
	#print $line."\n";
	$output = "out_$line";

	system("mkdir /data1/bsi/bioinf_int/s106381.borawork/data_HTHGU/NormSumSrc/TempForNaresh/out_$line");
	$in = "/usr/bin/perl /data1/bsi/bioinf_int/s106381.borawork/data_HTHGU/NormSumSrc/HTHGU_ProbesetSumm/bin/batch_normalized_frma_convertedCEL2.pl -i /data1/bsi/bioinf_int/s106381.borawork/data_HTHGU/NormSumSrc/TempForNaresh/$line -o /data1/bsi/bioinf_int/s106381.borawork/data_HTHGU/NormSumSrc/TempForNaresh/out_$line -t partek";
	$round = sprintf("%.0f", rand()*time());
	$file = "s".$round."."."csh";		
	open(WRBUFF,">/data1/bsi/bioinf_int/s106381.borawork/data_HTHGU/NormSumSrc/HTHGU_ProbesetSumm/bin/scripts/$file");
	print WRBUFF "source /home/m081429/.bash_profile\n";
	print WRBUFF "/usr/bin/perl /data1/bsi/bioinf_int/s106381.borawork/data_HTHGU/NormSumSrc/HTHGU_ProbesetSumm/bin/batch_normalized_frma_convertedCEL2.pl -i /data1/bsi/bioinf_int/s106381.borawork/data_HTHGU/NormSumSrc/TempForNaresh/$line -o /data1/bsi/bioinf_int/s106381.borawork/data_HTHGU/NormSumSrc/TempForNaresh/out_$line -t partek\n";
	$email = 'prodduturi.naresh@mayo.edu';
	system("qsub -l h_vmem=5G -V -cwd -m ae -M $email -q 1-day /data1/bsi/bioinf_int/s106381.borawork/data_HTHGU/NormSumSrc/HTHGU_ProbesetSumm/bin/scripts/$file");		
}

